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REMQTI = Remove Entry from Queue Tail 
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IBSREMQTI = Remove Entry from Queue at taitt Inter 1 see: -1984 17:4 AX/VMS Macro V04-00 P 
4 808 . gree eBe PF 1aeTe HORAN TE Base MOF ROO anes ase 
TIT Lf Lpesngnati = Remove Entry from Queve at Tail, Inte for locked 
IDE ; File: LIBREMQTI.MAR Edit: DGP1002 


SRA AAA A ERATE AEA EAA AAAAAAAAAAAAAAAAAAAERAAAAAAAAARAAAAAAEEAAEAAETAEAEAEES 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL a _GORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESER 


® 
® 
® 
® 
® 
THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
N ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 

ION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
HEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY ®* 
PERSON. NO TITLE TO AND OUNERSHIP OF THE SOFTWARE TS HEREBY * 
TRANSFERRED. * 
® 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
CORPORATION. ® 
® 

® 

* 

® 

® 

® 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


* @aeneneneneeneeee ae eee neenanane 


AREA RARARAAALARAAAALALALESALELEL ESE ESET SEES REESE ERE E EE EERE REECE ESS S EEE COE 


FACILITY: General Utility Library 
; ABSTRACT: 
One of four procedures which give higher level languages access 
to the yore? Locked. self-relative qugue instructions on the 
VAX-11/78 l future machines. This Library procedure permits 
the high x. Pen. user to have access to the REMQTI instruction. 


¢ ENVIRONMENT: User Mode, AST Reentrant 


: AUTHOR: R. E. Johnston, CREATION DATE: 03-Dec-79 
; MODIFIED BY: 


1-001 - Original. REJ 03-Dec-79 
1-002 = Retry count is off by one. DGP 14-Aug-1981 
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IBSREMQTI 
esti DECLARATIONS 


.SBTTL DECLARATIONS 
t INCLUDE FILES: 


EXTERNAL DECLARATIONS: 
~-DSABL GBL 


-EXTRN SS$_NORMAL 
~EXTRN LIBS_SECINTFAI 


.EXTRN LIBS_ONEENTQUE 
.EXTRN LIBS_QUEWASEMP 


> MACROS: 


: EQUATED SYMBOLS: 


0000000A DEF _RETRY_CNT = 10 


: OWN STORAGE: 


> PSECT DECLARATIONS: 
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C909 09 09 69 09 09 09 SI NII NNN PAPA AAA AAA MMIII 


NOUS WN OOO NAME WIN (OOD NAME WIN O OO NOUS WO 
. . 


6 
Remove Entry from Queue at Tait” Inter = SEP-1984 
SEP-1984 


17348 ines Macro 


:10:1 


v04-00 Page § 
LIBRTL.SRCIJLIBREMQTI .MAR; 1 (2) 


Disable automatic generation 

of .EXTRN 

Normal successful completion 
recenaery Interlock still 
locked after retry-cnt retrys 


; Successful gn aye but 
; the queue is now empty 


Queue was empty 
Queue is not modified 
Procedure is not successful 


Default retry count for 
Secondary Interlock fails 


-PSECT _LIBSCODE PIC, SHR, LONG, EXE, NOWRT 
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IBSREMQTI - Remove Entry from Queue at Tail, Inter 16-SEP-1984 00:17:4 AX/VMS Macro V04-00 P 
1-002 REMGTI - Renove Entry from Queue Tai ~$FE= 1386 Ho 10its UCTRTL. SRESLIGREMOTI «MAR: 1 _ a) 


a -SBTTL LIBSREMQTI = Remove Entry from Queue Tail 
: FUNCTIONAL DESCRIPTION: 


One of four precequres which give higher level languages access 
to the interlocked, self-relative queue instructions on the 

VAX=11/780 and all future machines. This Library procedure permits 

the nigh level Language user to have access to the REMQTI instruction. 
With this procedure the user may remove a queue entry from the tail of 
a user specified queue. 


If the entry is successfully removed from the tail of the queue and the 
queue now contains one or more entries, a successful completion status 
s returned. If the entry is removed from the tail of the queue and no 
other entries are now in the queue, the execution is successful but a 
unique status value is returned indicating that the queue now contains 
no entries (LIBS_ONEENTQUE). 


These queue instructions are synchronized across all processors 
through the use of a secondary interlock. The user may me a 
secondary interlock retry count. (The default retry count is 10.) 
If the secondary interlock remains locked through Petey count rorere 
a@ secondary interlock status is returned to the user (LIB$_SECINTF 15 
and the entry is NOT successfully removed from the tail of the queue. 
If an attempt is made to remove an entry from a queue which is already 
empty, a unique unsuccessful completion status is returned to the 
user (LIBS_QUEWASEMP). 

CALLING SEQUENCE: 


ret-status.wic.v = LIBSREMQTI (header.mq.r, addr.wi.rl, retry-cnt.rlu.rJ) 


INPUT PARAMETERS: 
HEADER = 4 ; Address of queue header 
ADDR = 8 ; Address where queue entry address 


is to be returned to user 
RETRY_CNT = 12 ; Address of retry count 
IMPLICIT INPUTS: 


NONE 
OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
FUNCTION VALUE: 
SS$_NORMAL - Entry removed from tail of queue, queue still contains 
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DO 0021 
0028 
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F4 0029 
DO 600 ; 
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from Queve at Tail, Inter 16-SEP- 
move Entry from Queue Tai 


~$EP=1986 $ 


one or more entries 

LIBS_ONEENTQUE = Successful completion of instruction (REMQTI). 
neat removed from tail of queue, but queue is now 
empty. 

- Secondary Interlock failed, queue is not modified. 

- Unsuccessful completion of instruction (REMOQTI). 
The oe was empty before the instruction was 
executed. 


£17348 ytente Macro V04-00 
:10:1 LIBRTL.SRCJLIBREMQTI MAR; 1 


SIDE EFFECTS: 


SS$_ROPRAND - reserved operane fault for: 
1.) either the entry or the header is at an address 
that is not quad word aligned. 
2.) address of header equals address of entry. 
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-ENTRY LIBSREMQTI , “M< > 3; Entry point 
MOVL #DEF_RETRY_CNT, RO ; RO = Default retry count of 10 
CMPB (AP), #<RETRY_CNT/4> :; Check for opt ional retry cnt operand 
BLSSU $ ; Branch if default count to be used 
20$ MOVL @RETRY_CNT(AP), RO ; RO = User specified retry count 
REMQTI @HEADER(AP), @ADDR(AP) ; Do the instruction (REMQTI) 
BCS 40$ : Branch if C = 
; (Secondary Interlock fail) 
BEQL 30$ :; Branch if Z = 1 
; (Queue is now empty) 
MOVL #SS$_NORMAL, RO ; Normai status - Entry removed from 
; tail of queue and one or more entries 
3; are still in queue 
30s RET 3; Successful return to user 
BVS 50$ : Branch if V = 1 
; (There was ay to remove) 
MOVL #LIBS_ONEENTQUE, RO ; Assume the queue is just now empty 
; Entry successfully removed from queue 
40s RET ; Successful return to user 
SOBGEQ RO, 208 ; Loop until retry count is exhausted 
MOVL #LIBS_SECINTFAI, RO ; Retry count is exhausted 
; Secondary Interlock fail status 
50s RET 3 Unsuccessful return to user 
MOVL #LIBS_QUEWASEMP, RO ; Queue was already empty before 
; this queue instruction was executed 
a ; Unsuccessful return to user 
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Initialization 
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ne processing 


we table sort 
P 2 


Symbol table output 
Psect synopsis output 
Cross-reference output 
Assembler run totals 


The working set Limit was 900 
2041 bytes (4 pages) of virtua 


Macro library name 


"$255$DUA28: CSYSLIBISTARLET.MLB; 2 

0 GETS were required to define 0 macros. 

There were no errors, warnings or information messages. 
MACRO/ENABLE=SUPPRESS1ON/DISABLE=(GLOBAL ,, TRACEBACK) /LIS=LIS$:LIBREMQTI/OBJ=OBJ$:LIBREMQT] MSRC$:LIBREMQTI/UPDATE=(ENH$:LIBREMQTI) 
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SLIBREMOTI .MAR; 1 


=x xxx 


NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SHR RD NOWRT NOVEC LONG 
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PPP? -t- 9-9-0} 
SOS00OS5665 
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Nt eet ree | 
oOoCOCCCO 
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SOSOSS5S55 
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memory were used to buffer the intermediate code. 
0 pages of symbol table space allocated ¢ 
5 source Lines were read in Pass 1, 


9 non-local ong 4 local symbols. 
0 pages of virtual memory were used to define 


11 object records in Pass 


Senet ane aa ener ecoemeowemee ¢ 


Macros defined 
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